home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
pie_oru1.zip
/
PIE-UPLD.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-10
|
4KB
|
313 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "COMMENT.USE", 0, 0
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FClose 1
GetUser
FOpen 1, PPEPath() + "rules.cnf", 0, 0
FGet 1, STRING033
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FClose 1
Cls
DispFile PPEPath() + "UPLOAD.PCB", 1
AnsiPos 8, 13
Print STRING033, STRING026
AnsiPos 6, 14
Print STRING033, STRING027
AnsiPos 6, 15
Print STRING033, STRING028
AnsiPos 6, 16
Print STRING033, STRING029
AnsiPos 6, 17
Print STRING033, STRING030
AnsiPos 6, 18
Print STRING033, STRING031
AnsiPos 6, 19
Print STRING033, STRING032
AnsiPos 55, 13
Print "@X07", STRING001
AnsiPos 55, 14
Print "@X07", STRING002
AnsiPos 55, 15
Print "@X07", STRING003
AnsiPos 55, 16
Print "@X07", STRING004
AnsiPos 55, 17
Print "@X07", STRING005
AnsiPos 55, 18
Print "@X07", STRING006
AnsiPos 55, 19
Print "@X07", STRING007
AnsiPos 55, 12
Print "@X0B", STRING008, "@X08 Says!"
STRING018 = 1
STRING019 = "@X38"
STRING020 = "@X08"
STRING021 = "@X08"
STRING022 = "@X08"
:LABEL001
Backup 1000
AnsiPos 34, 12
Print STRING019, " Upload "
AnsiPos 34, 13
Print STRING020, "Select File(s)"
AnsiPos 34, 14
Print STRING021, " Protocol "
AnsiPos 34, 15
Print STRING022, " Exit "
:LABEL002
STRING017 = Inkey()
If (STRING017 == Chr(13)) Goto LABEL007
If (STRING017 == "DOWN") Goto LABEL004
If (STRING017 == "RIGHT") Goto LABEL004
If (STRING017 == Chr(27)) Goto LABEL008
If (STRING017 == " ") Goto LABEL005
If (STRING017 == "8") Goto LABEL003
If (STRING017 == "a") Goto LABEL003
If (STRING017 == "z") Goto LABEL004
If (STRING017 == "A") Goto LABEL003
If (STRING017 == "Z") Goto LABEL004
If (STRING017 == "2") Goto LABEL004
If (STRING017 == "UP") Goto LABEL003
If (STRING017 == "LEFT") Goto LABEL003
Goto LABEL002
:LABEL003
STRING018 = STRING018 - 1
If (STRING018 == 0) Then
STRING018 = 1
Endif
Goto LABEL006
:LABEL004
STRING019 = "@X08"
STRING020 = "@X08"
STRING021 = "@X08"
STRING022 = "@X08"
STRING018 = STRING018 + 1
Goto LABEL006
:LABEL005
STRING019 = "@X08"
STRING020 = "@X08"
STRING021 = "@X08"
STRING022 = "@X08"
STRING018 = STRING018 + 1
Select Case (STRING018)
Case 5
STRING018 = 1
:LABEL006
STRING019 = "@X08"
STRING020 = "@X08"
STRING021 = "@X08"
STRING022 = "@X08"
Case 5
STRING018 = 4
End Select
If (STRING018 == 1) Goto LABEL010
If (STRING018 == 2) Goto LABEL011
If (STRING018 == 3) Goto LABEL009
If (STRING018 == 4) Goto LABEL012
AnsiPos 34, 12
Print STRING019, " Upload "
AnsiPos 34, 13
Print STRING020, "Select File(s)"
AnsiPos 34, 14
Print STRING021, " Protocol "
AnsiPos 34, 15
Print STRING022, " Exit "
Goto LABEL001
:LABEL007
If (STRING018 == 1) Goto LABEL013
If (STRING018 == 2) Goto LABEL015
If (STRING018 == 3) Goto LABEL016
If (STRING018 == 4) Goto LABEL008
:LABEL008
Print "@X0F"
Cls
End
:LABEL009
STRING021 = "@X38"
Goto LABEL001
:LABEL010
STRING019 = "@X38"
Goto LABEL001
:LABEL011
STRING020 = "@X38"
Goto LABEL001
:LABEL012
STRING022 = "@X38"
Goto LABEL001
:LABEL013
Cls
Print "@X08 cOMMENT nEXT pUMPER? [Y/n]"
InputStr "_", STRING016, 7, 1, "YNyn", 64 + 1024
STRING016 = Upper(STRING016)
If (STRING016 == "") Goto LABEL017
If (STRING016 == "Y") Goto LABEL017
If (STRING016 == "N") Goto LABEL014
:LABEL014
Cls
Newline
STRING023 = Chr(13)
STRING025 = 1
STRING024 = "C00lFILE.NEW" + STRING023 + "i AM USiNG tHA DIZZ....." + STRING023 + STRING023
KbdStuff "UB " + STRING024 + STRING023 + STRING023
End
:LABEL015
Cls
KbdStuff "UB"
End
:LABEL016
Cls
KbdStuff "T"
End
:LABEL017
DispFile PPEPath() + "COMMENT.PCB", 1
AnsiPos 30, 13
InputText "_", STRING009, 7, 22
AnsiPos 30, 14
InputText "_", STRING010, 7, 22
AnsiPos 30, 15
InputText "_", STRING011, 7, 22
AnsiPos 30, 16
InputText "_", STRING012, 7, 22
AnsiPos 30, 17
InputText "_", STRING013, 7, 22
AnsiPos 30, 18
InputText "_", STRING014, 7, 22
AnsiPos 30, 19
InputText "_", STRING015, 7, 22
Delete PPEPath() + "COMMENT.USE"
FCreate 1, PPEPath() + "COMMENT.USE", 1, 0
FOpen 1, PPEPath() + "COMMENT.USE", 1, 0
FPutLn 1, STRING009
FPutLn 1, STRING010
FPutLn 1, STRING011
FPutLn 1, STRING012
FPutLn 1, STRING013
FPutLn 1, STRING014
FPutLn 1, STRING015
FPutLn 1, U_Name()
FClose 1
Goto LABEL014
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 6 Cls
; 37 Goto
; 32 Let
; 25 Print
; 27 If
; 2 DispFile
; 1 FCreate
; 3 FOpen
; 3 FClose
; 16 FGet
; 8 FPutLn
; 1 GetUser
; 1 Delete
; 1 InputStr
; 1 Newline
; 7 InputText
; 3 KbdStuff
; 30 AnsiPos
; 1 Backup
;
;
; ■ Functions used :
;
; 17 +
; 1 -
; 27 ==
; 3 !
; 1 Upper()
; 3 Chr()
; 1 U_Name()
; 1 Inkey()
; 7 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 1 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------